COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.<< Pub this after TESTG to print an exam.  >>
C00004 00003	.at "" sec "←" wt ""	⊂
C00015 00004	.area text lines 4 to height IN 4 COLUMNS 1 APART
C00016 ENDMK
C⊗;
.<< Pub this after TESTG to print an exam.  >>
.device xgp
.general←false;			<< true makes general exams, else road only >>
.font 1 "non44"
.font 2 "non44i"
.font 3 "non44b"
.<< compute page size parameters for a given height, width (mills), and
.  left border for a given reduction (%).
.  E.g. layout(10500,7000,1000,100); >>
. recursive macro layout(ht,wid,bord,red)	⊂ select 1;
.  height←ht*30/(red*(charh+2))-2;
.  width←(wid*7+red*2)/(red*4);
.  oddleftborder←evenleftborder←bord*150/red;
.  page frame height high width wide;
.  ⊃
.  layout(9000,6500,1000,100);
.TURN ON "α%#←→∂∞\{"
.
.area text lines 3 to height IN 2 COLUMNS 3 APART
.begin "test"
.count question from 1 to 999;
.count answer in question printing "a";
.
.at "⊗" sec "←" wt ";"	⊂
.eval("w"&"sec←wt");
.  ⊃;
.if general then start "general" require "testgw.pub" source_file; end "general"
.else start "road" require "testrw.pub" source_file; end "road";
.macro decr(εvar)	⊂ if (cnt←var) then var←var-1;; ⊃;
.
.at "π" randy "λ" rul "λ" quest "∞"	⊂ decr("W"&"rul"[1 to 2]);
.if cnt then start
. next question; skip 1;
.rule←"rul";
.if rule[2]="X" then foo←scan(rule,"-","","IS");
.rules←scan(rule,"abcdefghijklmnopqrstuvwxyz");
.send refer	⊂
.skip (if line>48 then 200 else 1);
→{question!}.∂5  {rules}
.⊃
{question!}.  quest
. end ⊃;
.at "@"	⊂ next answer; once indent 0,4;
{answer!}. ∂4{ ⊃;
.at "+"	⊂ next answer; once indent 0,4;
.send crib	⊂
.skip (if line>48 then 200 else 1);
→{question!}.∂5∂(3+{answer}*4){answer!}
.⊃
{answer!}. ∂4{ ⊃;
.
.at "ε" tst "λ"	⊂ testno←"tst";
.every heading(%3United States Cycling Federation,,Officials Examination No. tst);
.next page;
.if ¬general then start
NOTE: this examination may be used to qualify only for a Category 4
(road only) license.
.end
.break
%1INSTRUCTIONS: complete each question with the choice that %2best%1 answers
the question.  Circle your choice on the answer sheet.
Do not make any marks on this paper.

.  odd heading(,%3USCF Officials Examination No. tst,Page {page});
.  even heading(%3Page {page},USCF Officials Examination No. tst);
.  ⊃
.fill nojust
.indent 0,0; preface 0;
.require "testg.doc[c,les]" source_file;
.tty←question&" questions";
.end "test"
.area text lines 4 to height IN 4 COLUMNS 1 APART
.nofill;
.every heading(,Scoring Sheet for USCF Officials Test No. {testno},);
.portion crib
.place text
.receive
.
.every heading(,Reference to answers for USCF Officials Test No. {testno},);
.portion refer
.place text
.receive